* url/url-util.el (url-get-url-at-point): Add missing group in

regex.

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 9897dea9c7ff71811a62f0a4f886141812835c28..a3c9655ebdd30ee7f3d6ea7eb67cc8ce96f8a7b7 100644 (file)
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -565,7 +565,7 @@ Has a preference for looking backward when not directly on a symbol."
              (skip-chars-forward url-get-url-filename-chars))
          (setq start (point)))
        (setq url (buffer-substring-no-properties start (point))))
-      (if (and url (string-match "^(.*)\\.?$" url))
+      (if (and url (string-match "^(\\(.*\\))\\.?$" url))
          (setq url (match-string 1 url)))
       (if (and url (string-match "^URL:" url))
          (setq url (substring url 4 nil)))